home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 4 / PC World Interactive 4.iso / share / internet / LSMIRC61.EXE / salias.in_ / salias.in
INI File  |  1997-09-12  |  16KB  |  414 lines
  1. [aliases]
  2. n0=;
  3. n1=;  This section contains aliases for option initialization and reloading
  4. n2=;
  5. n3=readoptions {
  6. n4=  .disable #detmul
  7. n5=  clearchaninfo
  8. n6=  %n = 0
  9. n7=  :chan
  10. n8=  inc %n
  11. n9=  set %temp $ro(Channel,Chan [ $+ [ %n ] ] )
  12. n10=  if %temp != $null {
  13. n11=    set %end $calc($pos(%temp,Mode:) - 6)
  14. n12=    set %start $calc($pos(%temp,Mode:) + 5)
  15. n13=    set %chan $mid(%temp,6,%end)
  16. n14=    set %option $ro(Channel,Option [ $+ [ %chan ] ] )
  17. n15=    set %check $ro(Channel,Check [ $+ [ %chan ] ] )
  18. n16=    if %chan = Unspecified_Channels {
  19. n17=      set %chan other
  20. n18=      set %repeatinother $ro(Channel,Unspecified_ChannelsRepeat)
  21. n19=      set %anyoneother $ro(CustomJoin,Unspecified_Channelsanyone)
  22. n20=    }
  23. n21=    else { 
  24. n22=      set %repeatin [ $+ [ %chan ] ] $ro(Channel, [ [ %chan ] $+ Repeat ] )
  25. n23=      set %haveoptions [ $+ [ %chan ] ] $true
  26. n24=      if (%notinit) echo 3 -a Adding %chan
  27. n25=      set %idlekickafter [ $+ [ %chan ] ] $ro(Channel, [ [ %chan ] $+ IdleKick ] )
  28. n26=      set %botnick [ $+ [ %chan ] ] $ro(Channel, [ [ %chan ] $+ BotNick ] )
  29. n27=      set %botpass [ $+ [ %chan ] ] $ro(Channel, [ [ %chan ] $+ BotPass ] )
  30. n28=      set %anyone [ $+ [ %chan ] ] $ro(CustomJoin, [ [ %chan ] $+ anyone ] )
  31. n29=    }
  32. n30=    set %end $pos(%temp,Cen:) | set %pos %end | dec %end %start
  33. n31=    set %mode [ $+ [ %chan ] ] $mid(%temp,%start,%end)
  34. n32=    set %right $len(%temp) | dec %right %pos | dec %right 3
  35. n33=    set %cen $right(%temp,%right)
  36. n34=    set %pos $pos(%cen,$chr(44))
  37. n35=    %left = %pos - 1
  38. n36=    set %right $len(%cen)
  39. n37=    dec %right %pos
  40. n38=    set %censoris [ $+ [ %chan ] ]  $left(%cen,%left)
  41. n39=    set %censorin [ $+ [ %chan ] ] $right(%cen,%right)
  42. n40=    %i = -2
  43. n41=    :check
  44. n42=    inc %i
  45. n43=    set %pos $pos(%check,$chr(44))
  46. n44=    if %pos != $null {
  47. n45=      set %misc [ $+ [ %i ] ] $left(%check,$calc(%pos - 1))
  48. n46=      set %check $right(%check,$calc($len(%check) - %pos))
  49. n47=      goto check
  50. n48=    }
  51. n49=    set %enforcemode [ $+ [ %chan ] ] %misc0
  52. n50=    set %bitch [ $+ [ %chan ] ] %misc1
  53. n51=    set %serverop [ $+ [ %chan ] ] %misc2
  54. n52=    set %massdeop [ $+ [ %chan ] ] %misc3
  55. n53=    set %masskick [ $+ [ %chan ] ] %misc4
  56. n54=    set %opops [ $+ [ %chan ] ] %misc5
  57. n55=    set %opmasters [ $+ [ %chan ] ] %misc6
  58. n56=    set %autovoice [ $+ [ %chan ] ] %misc7
  59. n57=    set %oppass [ $+ [ %chan ] ] %misc8
  60. n58=    set %protecto [ $+ [ %chan ] ] %misc9
  61. n59=    set %monitor [ $+ [ %chan ] ] %misc10
  62. n60=    set %matchbans [ $+ [ %chan ] ] %misc11
  63. n61=    set %serverbans [ $+ [ %chan ] ] %misc12
  64. n62=    set %peak [ $+ [ %chan ] ] %misc13
  65. n63=    set %whois [ $+ [ %chan ] ] %misc14
  66. n64=    set %excclients [ $+ [ %chan ] ] %misc15
  67. n65=    if (%misc15) .enable #detmul
  68. n66=    set %clone [ $+ [ %chan ] ] %misc16
  69. n67=    set %joinflood [ $+ [ %chan ] ] %misc17
  70. n68=    set %nickflood [ $+ [ %chan ] ] %misc18
  71. n69=    set %textflood [ $+ [ %chan ] ] %misc19
  72. n70=    set %tsunf [ $+ [ %chan ] ] %misc20
  73. n71=    set %antiexclam [ $+ [ %chan ] ] %misc21
  74. n72=    set %longword [ $+ [ %chan ] ] %misc22
  75. n73=    set %capskicker [ $+ [ %chan ] ] %misc23
  76. n74=    set %colorkick [ $+ [ %chan ] ] %misc24
  77. n75=    set %opbots [ $+ [ %chan ] ] %misc25
  78. n76=    set %havecustom [ $+ [ %chan ] ] %misc26
  79. n77=    set %idlekick [ $+ [ %chan ] ] %misc27
  80. n78=    set %repeatkick [ $+ [ %chan ] ] %misc28
  81. n79=    set %voiceall [ $+ [ %chan ] ] %misc29
  82. n80=    set %requestops [ $+ [ %chan ] ] %misc30
  83. n81=    unset %misc*
  84. n82=    %i = -2
  85. n83=    :option
  86. n84=    inc %i
  87. n85=    set %pos $pos(%option,$chr(44))
  88. n86=    if %pos != $null {
  89. n87=      set %misc [ $+ [ %i ] ] $left(%option,$calc(%pos - 1))
  90. n88=      set %option $right(%option,$calc($len(%option) - %pos))
  91. n89=      goto option
  92. n90=    }
  93. n91=    set %deopall [ $+ [ %chan ] ] %misc1
  94. n92=    set %peaknotice [ $+ [ %chan ] ] %misc3
  95. n93=    set %whoisopped [ $+ [ %chan ] ] %misc4
  96. n94=    set %whoisalways [ $+ [ %chan ] ] %misc5
  97. n95=    set %kickclone [ $+ [ %chan ] ] %misc6
  98. n96=    set %noticeclone [ $+ [ %chan ] ] %misc7
  99. n97=    set %namecensor [ $+ [ %chan ] ] %misc10
  100. n98=    set %namecensorban [ $+ [ %chan ] ] %misc11
  101. n99=    if (%namecensorban [ $+ [ %chan ] ] ) set %namecensor [ $+ [ %chan ] ] $true
  102. n100=    set %censorall [ $+ [ %chan ] ] %misc13
  103. n101=    set %censorunrec [ $+ [ %chan ] ] %misc14
  104. n102=    set %banafter [ $+ [ %chan ] ] %misc16
  105. n103=    set %opexdeop [ $+ [ %chan ] ] %misc18
  106. n104=    set %opexkick [ $+ [ %chan ] ] %misc19
  107. n105=    %j = 0
  108. n106=    :setchans
  109. n107=    inc %j
  110. n108=    if %chan = other set %name Unspecified_Channels
  111. n109=    else set %name %chan
  112. n110=    set %temp Cen $+ [ %name ] $+ [ %j ]
  113. n111=    set %temp $ro(Channel,%temp)
  114. n112=    if %temp != $null {
  115. n113=      %i = 0
  116. n114=      :channame
  117. n115=      inc %i
  118. n116=      set %pos $pos(%temp,`)
  119. n117=      if %pos != $null {
  120. n118=        set [ %cenchan ] $+ [ %chan ] $+ [ %i ] $left(%temp,$calc(%pos - 1))
  121. n119=        set %temp $right(%temp,$calc($len(%temp) - %pos))
  122. n120=        goto channame
  123. n121=      }
  124. n122=      goto setchans
  125. n123=    }
  126. n124=    goto chan
  127. n125=  }
  128. n126=  set %ver $ro(general,Version)
  129. n127=  set %lsver $ro(general,LSVersion)
  130. n128=  set %mynick $ro(general,MyNick)
  131. n129=  set %nspd $ro(general,NickServPass)
  132. n130=  set %cspd $ro(general,ChanServPass)
  133. n131=  set %xpd $ro(general,XPass)
  134. n132=  set %wpd $ro(general,WPass)
  135. n133=  set %usespecific $ro(general,SpecificLists)
  136. n134=  set %temp $ro(general,Female)
  137. n135=  if (%temp) { set %hisorher her | set %himorher her | set %heorshe she }
  138. n136=  else { set %hisorher his | set %himorher him | set %heorshe he }
  139. n137=  set %temp $ro(general,Misc)
  140. n138=  %i = -1
  141. n139=  :misc
  142. n140=  inc %i
  143. n141=  set %pos $pos(%temp,$chr(44))
  144. n142=  if %pos != $null {
  145. n143=    set %misc [ $+ [ %i ] ] $left(%temp,$calc(%pos - 1))
  146. n144=    set %temp $right(%temp,$calc($len(%temp) - %pos))
  147. n145=    goto misc
  148. n146=  }
  149. n147=  set %textis %misc0
  150. n148=  set %textin %misc1
  151. n149=  set %joinis %misc2
  152. n150=  set %joinin %misc3
  153. n151=  set %nickis %misc4
  154. n152=  set %nickin %misc5
  155. n153=  set %soundis %misc6
  156. n154=  set %soundin %misc7
  157. n155=  set %excclientsis %misc8
  158. n156=  set %longwordis %misc9
  159. n157=  set %capsis %misc10
  160. n158=  set %bantime %misc11
  161. n159=  set %exclagis %misc12
  162. n160=  set %maxmodes %misc13
  163. n161=  unset %misc*
  164. n162=  set %allsound $ro(ctcp,SoundAll)
  165. n163=  set %ulsound $ro(ctcp,SoundUser)
  166. n164=  set %rsendauto $ro(ctcp,RecSendAuto)
  167. n165=  set %rsendask $ro(ctcp,RecSendAsk)
  168. n166=  set %rchatask $ro(ctcp,RecChatAsk)
  169. n167=  set %rchatauto $ro(ctcp,RecChatAuto)
  170. n168=  set %usendask $ro(ctcp,UnrecSendAsk)
  171. n169=  set %usendauto $ro(ctcp,UnrecSendAuto)
  172. n170=  set %uchatauto $ro(ctcp,UnrecChatAuto)
  173. n171=  set %uchatask $ro(ctcp,UnrecChatAsk)
  174. n172=  set %permban $ro(ctcp,PermBan)
  175. n173=  set %permignore $ro(ctcp,PermIgnore)
  176. n174=  set %notbys $ro(ctcp,NotBySound)
  177. n175=  set %dontkick $ro(ctcp,DontKick)
  178. n176=  set %kickmsg $rm(1)
  179. n177=  set %kickbanmsg $rm(2)  
  180. n178=  set %default $rm(3)
  181. n179=  set %textfloodmsg $rm(4)
  182. n180=  set %joinfloodmsg $rm(5)
  183. n181=  set %ghostmsg $rm(6)  
  184. n182=  set %clonemsg $rm(7)
  185. n183=  set %antiecxlammsg $rm(8)
  186. n184=  set %massdeopmsg $rm(9)
  187. n185=  set %masskickmsg $rm(10)  
  188. n186=  set %nickfloodmsg $rm(11)
  189. n187=  set %longwordmsg $rm(12)
  190. n188=  set %invitemsg $rm(13)
  191. n189=  set %shutupmsg $rm(14)  
  192. n190=  set %ircopkick $rm(15)
  193. n191=  set %excclientsmsg $rm(16)
  194. n192=  set %exccensormsg $rm(17)
  195. n193=  set %quitmsg $rm(18)  
  196. n194=  set %fsend $rm(19)
  197. n195=  set %wont $rm(20)
  198. n196=  set %autokickmsg $rm(21)
  199. n197=  set %colorkickmsg $rm(22)
  200. n198=  set %autoawaymsg $rm(23)
  201. n199=  if %autoawaymsg = $null set %autoawaymsg auto-away
  202. n200=  set %autofserve1 $ro(FileServer,AutoInitiate1)
  203. n201=  set %autofserve2 $ro(FileServer,AutoInitiate2)
  204. n202=  set %fsenforceratio $ro(FileServer,EnforceRatio)
  205. n203=  set %fservcheck $ro(FileServer,CheckExisting)
  206. n204=  set %maxgets $ro(FileServer,MaxGets)
  207. n205=  if (%fsenforceratio) set %fservratio $ro(FileServer,Ratio)
  208. n206=  else set %fservratio 0
  209. n207=  set %startingcredits $ro(FileServer,StartingCredits)
  210. n208=  set %autoword1 $ro(FileServer,InitiateOn1)
  211. n209=  set %autoword2 $ro(FileServer,InitiateOn2)
  212. n210=  set %fservepath1 $ro(FileServer,Directory1)
  213. n211=  set %fservepath2 $ro(FileServer,Directory2)
  214. n212=  set %fsask $ro(FileServer,Ask)
  215. n213=  set %fsauto $ro(FileServer,AutoAccept)
  216. n214=  set %fsrefuse $ro(FileServer,Refuse)
  217. n215=  unset %cenword*
  218. n216=  %i = 0
  219. n217=  :setword
  220. n218=  inc %i
  221. n219=  set %temp $ro(Censor,Word [ $+ [ %i ] ] )
  222. n220=  if %temp != $null {
  223. n221=    set %cenword [ $+ [ %i ] ] %temp
  224. n222=    goto setword
  225. n223=  }
  226. n224=  set %getnick $ro(other,GetNick)
  227. n225=  set %reset $ro(other,ResetSessionLogs)
  228. n226=  set %keepme $ro(other,KeepMeConnected)
  229. n227=  set %cycleops $ro(other,CycleOps)
  230. n228=  set %minfs $ro(other,MinFSsend)
  231. n229=  set %minsend $ro(other,MinRegSend)
  232. n230=  set %osound $ro(other,OtherSounds)
  233. n231=  set %revenge $ro(other,Revenge)
  234. n232=  set %seen $ro(other,EnableSeen)
  235. n233=  set %askforfile $ro(other,RequestFiles)
  236. n234=  set %log $ro(Other,SessionLogging)
  237. n235=  set %nochataway $ro(other,NoChatAway)
  238. n236=  set %lagcheck $ro(other,LagCheck)
  239. n237=  set %botlog $ro(other,BotLiteLogging)
  240. n238=  set %invite $ro(other,InviteKick)
  241. n239=  set %banlist $ro(other,BanListActive)
  242. n240=  set %botlite $ro(other,BotLiteEnabled)
  243. n241=  set %autoaway $ro(other,AutoAway)
  244. n242=  set %underscore $ro(other,AutoUnderscore)
  245. n243=  set %alertnick $ro(other,AlertOnMyNick)
  246. n244=  set %enableping $ro(other,EnablePing)
  247. n245=  set %altrejoin $ro(other,AlternateRejoin)
  248. n246=  set %altconnect $ro(other,AlternateServer)
  249. n247=  set %autogreet $ro(other,AutoGreet)
  250. n248=  set %infolines $ro(other,InfoLines)
  251. n249=  set %autoget $ro(other,AutoGet)
  252. n250=  set %autoident $ro(other,AutoIdentify)
  253. n251=  set %ncstart $read -l1 $mircdiroptions\colors.txt
  254. n252=  set %ncend $read -l2 $mircdiroptions\colors.txt
  255. n253=  unset %greet*
  256. n254=  set %greetstart $read -l3 $mircdiroptions\colors.txt
  257. n255=  set %greetend $read -l4 $mircdiroptions\colors.txt
  258. n256=  loadxdccoptions
  259. n257=}
  260. n258=rdo return $readini $mircdiroptions\av.ini Options [ n $+ [ $1 ] ]
  261. n259=rdc return $readini $mircdiroptions\av.ini Checks [ n $+ [ $1 ] ]
  262. n260=loaddisplay {
  263. n261=  %i = -1
  264. n262=  :nx
  265. n263=  inc %i
  266. n264=  set %temp $readini $mircdiroptions\av.ini Colors [ n $+ [ %i ] ]
  267. n265=  if (%temp != $null) { set %dis [ $+ [ %i ] ]  $+ %temp | goto nx }
  268. n266=  set %temp $rdo(0)
  269. n267=  if (%temp) { set %ekick $true | set %ckick $true }
  270. n268=  else {
  271. n269=    set %temp $rdo(1)
  272. n270=    if (%temp) { set %ekick $true | set %ckick $false }
  273. n271=    else set %ekick $false
  274. n272=  }
  275. n273=  set %temp $rdo(8)
  276. n274=  if (%temp) set %dis18 -s %dis18
  277. n275=  else set %dis18 -a %dis18
  278. n276=  set %temp $rdo(4)
  279. n277=  if (%temp) { set %dis5 -a %dis5 | set %uech $false }
  280. n278=  else {
  281. n279=    set %temp $rdo(5)
  282. n280=    if (%temp) { set %dis5 -s %dis5 | set %uech $false }
  283. n281=    else set %uech $true
  284. n282=  }
  285. n283=  set %temp $rdo(6)
  286. n284=  if (%temp) { set %dis11 -s %dis11 | set %dis33 -s %dis33 | set %dis34 -s %dis34 }
  287. n285=  else { set %dis11 -a %dis11 | set %dis33 -a %dis33 | set %dis34 -a %dis34 }
  288. n286=  set %temp $rdo(10)
  289. n287=  if (%temp) set %dis31 -s %dis31
  290. n288=  else set %dis31 -a %dis31
  291. n289=  set %eflood $rdc(0)
  292. n290=  set %acPING $rdc(1)
  293. n291=  set %acVERSION $rdc(2)
  294. n292=  set %acCLIENTINFO $rdc(3)
  295. n293=  set %acUSERINFO $rdc(4)
  296. n294=  set %acFINGER $rdc(5)
  297. n295=  set %acTIME $rdc(6)
  298. n296=  set %euser $rdc(7)
  299. n297=  set %altnotify $rdc(8)
  300. n298=  set %ranmon $false
  301. n299=}
  302. n300=;
  303. n301=;      reload routine...   this is called thru dde by the options program
  304. n302=;
  305. n303=checkmynick if ((%getnick) && ($me != %mynick)) getnick
  306. n304=reload {
  307. n305=  echo 3 -a Reloading options...
  308. n306=  readoptions
  309. n307=  .timers off
  310. n308=  speaktome
  311. n309=  startchecking
  312. n310=  if $server != $null {
  313. n311=    .timer 1 3 checkmynick
  314. n312=    if undernet isin $server set %type AlwaysUndernet
  315. n313=    elseif dal.net isin $server set %type AlwaysDalnet
  316. n314=    else set %type AlwaysOther
  317. n315=    %i = 0 | unset %alwaysjoin*
  318. n316=    :alwaysjoin
  319. n317=    inc %i
  320. n318=    set %temp $ro(%type,Chan [ $+ [ %i ] ] )
  321. n319=    if %temp != $null {
  322. n320=      set %alwaysjoin [ $+ [ %i ] ] %temp
  323. n321=      goto alwaysjoin
  324. n322=    }
  325. n323=    if (%alwaysjoin1 != $null) { alwaysjoin | .timer 0 30 alwaysjoin }
  326. n324=    if (%lagcheck) {
  327. n325=      titlebar Little Star 6.1  $me on $server $+ : $+ $port  Lag: waiting for info
  328. n326=      .timer101 0 120 getlag | getlag
  329. n327=    }
  330. n328=    else titlebar Little Star 6.1  $me on $server $+ : $+ $port
  331. n329=    .timer 0 600 /raw -q PRIVMSG $!me : $+ $chr(1) $+ PONG Anti-Idle! $+ $chr(1)
  332. n330=    if (%cycleops) .timer 0 15 cycleops
  333. n331=  }
  334. n332=  .timer 0 300 idlecheck
  335. n333=  if (%excclients) .enable #detmul
  336. n334=  else .disable #detmul
  337. n335=  if ((%reset) && (%log)) write -c $mircdirlogs\session.log
  338. n336=  if (%botlite) .enable #bot
  339. n337=  else .disable #bot
  340. n338=  echo 4 -a Updated options in effect!
  341. n339=  halt
  342. n340=}
  343. n341=clearchaninfo {
  344. n342=  unset %haveoptions* | unset %mode* | unset %idlekick* | unset %botnick* | unset %opbots*
  345. n343=  unset %censoris* | unset %censorin* | unset %enforcemode* | unset %bitch*
  346. n344=  unset %serverop* | unset %massdeop* | unset %masskick* | unset %opops*
  347. n345=  unset %opmasters* | unset %autovoice* | unset %oppass* | unset %protecto*
  348. n346=  unset %monitor* | unset %matchbans* | unset %serverbans* | unset %peak*
  349. n347=  unset %whois* | unset %excclients* | unset %clone* | unset %joinflood*
  350. n348=  unset %nickflood* | unset %textflood* | unset %tsunf* | unset %antiexclam*
  351. n349=  unset %longword* | unset %capskicker* | unset %colorkick* | unset %deopall*
  352. n350=  unset %kickclone* | unset %noticeclone* |  unset %namecensor* | unset %namecensorban*
  353. n351=  unset %censorall* | unset %censorunrec* | unset %banafter* | unset %cenchan*
  354. n352=  unset %botpass* | unset %repeat* | unset %anyone* | unset %repeatkick*
  355. n353=  unset %voiceall* | unset %requestops* | unset %opex* | unset %havecustom*
  356. n354=}
  357. n355=popopt {
  358. n356=  set %temp $readini $mircdiroptions\options.ini Popups [ n $+ [ $1 ] ]
  359. n357=  if %temp = $null return $true
  360. n358=  return %temp
  361. n359=}
  362. n360=loadpopups {
  363. n361=  if ($popopt(0)) set %popxdcc XDCC
  364. n362=  else unset %popxdcc
  365. n363=  if ($popopt(1)) set %popdestruct Destruction
  366. n364=  else unset %popdestruct
  367. n365=  if ($popopt(2)) set %poprunapp Run Application
  368. n366=  else unset %poprunapp
  369. n367=  if ($popopt(3)) set %popmass Mass Destruction
  370. n368=  else unset %popmass
  371. n369=  if ($popopt(4)) set %popnserv Nick Serv
  372. n370=  else unset %popnserv
  373. n371=  if ($popopt(5)) set %popmserv Memo Serv
  374. n372=  else unset %popmserv
  375. n373=  if ($popopt(6)) set %popeggnl Eggdrop Commands
  376. n374=  else unset %popeggnl
  377. n375=  if ($popopt(7)) set %popcserv Channel Services
  378. n376=  else unset %popcserv
  379. n377=  if ($popopt(8)) set %popeggqc Eggdrop Commands
  380. n378=  else unset %popeggqc
  381. n379=  if ($popopt(9)) set %popfsqc File Server
  382. n380=  else unset %popfsqc
  383. n381=  if ($popopt(10)) set %popflood Floods
  384. n382=  else unset %popflood
  385. n383=  if ($popopt(11)) set %popsec Security Options
  386. n384=  else unset %popsec
  387. n385=  if ($popopt(12)) set %popfilter Filter Kicks
  388. n386=  else unset %popfilter
  389. n387=  if ($popopt(13)) set %popmatch Match Ops List
  390. n388=  else unset %popmatch
  391. n389=}
  392. n390=usbl {
  393. n391=  set %block1 Random Whois Reply
  394. n392=  set %block2 Dynamite2
  395. n393=  set %block3 Hooker
  396. n394=  set %block4 Hummer
  397. n395=  set %block5 Nads
  398. n396=  set %block6 Nuts
  399. n397=  set %block7 Silencer Shoot
  400. n398=  set %block8 Butt Armor
  401. n399=  set %block9 Caution
  402. n400=  set %block10 Dick
  403. n401=  set %block11 Face
  404. n402=  set %block12 Fuck Off
  405. n403=  set %block13 Fuck You
  406. n404=  set %block14 Kiss This
  407. n405=  set %block15 Lonely
  408. n406=  set %block16 Moon
  409. n407=  set %block17 Resuscitation
  410. n408=  set %block18 She pays me
  411. n409=  set %block19 Suck
  412. n410=  set %block20 Other Insults
  413. n411=}
  414.